Attribute VB_Name = "modLoadProfile"
Public Sub LoadProfile()

    'MyReg.Subkey = "Profiles\" & MyReg.GetRegistryValue("CurrentProfile")
    'frmConfig.txtUsername.text = MyReg.GetRegistryValue("Username")
    'frmConfig.txtPassword.text = MyReg.GetRegistryValue("Password")
    'frmConfig.txtCDKey.text = MyReg.GetRegistryValue("CDKey")
    'frmConfig.txtLODKey.text = MyReg.GetRegistryValue("LODKey")
    'frmConfig.txtServer.text = MyReg.GetRegistryValue("Server")
    'frmConfig.txtHomeChannel.text = MyReg.GetRegistryValue("HomeChannel")
    'frmConfig.cmbProduct.ListIndex = MyReg.GetRegistryValue("Product")
    'frmConfig.txtDatabase.text = MyReg.GetRegistryValue("Database")
    
End Sub
